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ANY HARDWARE MODIFICAT Me O YOUR EQUIPMENT. ) 


Well here is the latest What has happend to AERCO? They 
information: Check our advertisers have not upar aded the disk 
and mention SMUG Bytes. Bill picked interface to handle a full Spectrum 
up a used | 68 from them for only emulator nor anything else. 

B40, y also have a few  TSl000'& 

for sale. Besides hardware tney To all you hardware hackers nut 
have some software and books. if there; Has anyone got tne MIMI 
you read the latest E. Arther Brown working with the GERD drives? 
fiyer then you know there is not 1 hate this tape loading. Or can 1 
one mention of  Timex/Sinciair in get a disk interface that will 
it. Seems like vendors are leaving mde me to read an Oliger disk 
the fold, our loss but theres also, wi th my AERCU system I would iiia 
and going into more protfitabie? load my tapes Diigcger. 
Sales. A note for all you X 1/2" SAVE kise. one disk, able to 
disk users; price is goin up. The read the disk on system. 
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"so" NOTES 
BY R.A.HILSMANN 


Another look back at one of the 
programs you have found here in 
SMUG BYTES. This time the RECOVER 
program will be updated. As I men- 
tioned before, "Haste makes waste" 
this is still another good denon- 
stration of it. 


When I looked at the program at 
the time I thought it was ready for 
this column, I figured I covered it 
all, but I forgot to consider the 
folks with single sided drives. 
Sorry about that. This new version 
will take care of it, and cover 
some more quirks the old program 
had. This version will restore a 
disk so that it can be used again, 
of course you would loose any disk- 
space which has exited into another 
computer world, but if there is any 
diskspace left on the disk, one 
could again save/ to it. 


Another area has been covered by 
John Dliger in his latest version 
of his operating system, namely an 
ERASE feature. If you have a cor- 
rupted program on the disk, you 
could either try to save that por- 
tion which is still intact with 
this program, or erase it from the 
disk using his new version. 


What is RECOVER really designed 
to do, you may ask? Its major func- 
tion is to restore the disk direct- 
ory ones corrupted by either an ac- 
cidental format process, which you 
have stoped just in time to leave 
some or all data otherwise intact, 
or if you have a bad program, which 
includes data as variables saved 
along with the program, you may now 
recover such variable data seperat- 
ely. Maybe, it should work to some 
degree at least, even save uncor- 
rupted portions of a program. How 
much good this would do is just 
speculation, but what does one have 
to loose? I am sure someone will 
try it in time. 
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TO HERE» 


1 REM FILL THIS LINE UITH 
1 CES 
E 
4 


4 GO TO ld 

S5 BEEP .88,235: RETURN 
10 REM 

uio 2-5 eei rola l- ie 
x DISK RECOVER PROBERT 1.3 


= FOR SAFE COS (SD05: E: 
= 1988 IMPEX SoFTURRE x 
bi FOR PUBLIC DOMAIN = 

Br FLA. HILSMANH x 
iIziiiiTIBIÉRIRIIRIIRARRERRXGRRR 


15 LET As@: PAPER A: INK 8: BO 
RDER A: CLS : BIN A$ISIZI!: CIH 
B$ilfi: DIM C$il55,20): LET pz" 

"^. QET-FLzhH: LET a =ñ: LET T=18: 
LET BP-5: GO SUB BP: PRINT AT T 
205 “Answer a few questions below 


20 INPUT "Do you need ta creat 
e a neu DiskDirectoru on the dam 
aged disk 7"'"'" iYes;Hol":G5: 
IF &t-"n" OR G£-"N" THEN LET FL 


25 INPUT “Are your drives dou 
LE sided" '"ivYves;Ho)! ";55: LET fe 
=CODE 5$: IF K»96 THEN LET K=k-3 
B: LET S$=CHRS K 

30 CLS : GO SUB BP: PRINT HT T 
,0;"Insert disk into drive of yo 
ur choice and enter drive numbe 
f below. “i 

48 IF WOT FL THEN PRINT "Disk 
will be processed to receive a 

temporary directora" 

za GO SUB BP: INPUT “WHICH DRI 


UE FF (1 TO 41 “;K: LET sE=H-I 
68 IF NOT FL THEN GO SUB BF: I 
NPUT "ENTER NEW DISK NAME +") Es 


70 IF NOT FL THEN CLS : GO SUE 
BP: PRINT AT T,0; "DISK WILL BE 


PROCESSED NOU"? “PRESS ENTER UHE 
N READY": PAUSE O 
88 CLS : GO SUB BP: PRINT AT T 


,7; FLASH i;'ane moment please!" 
: FOR si TO i857: LET C$iA,1 TO 1 
Q)-z"CYL # “4+5TRS A+" ToL LLCET C$ 
(A,11 TO ) =CHR$ 34+CHRS @+CHRS 28 
4°UR CLS U+CHAS$ ZÉé+CHRS$ G+CHAS E 


I 
agp IF A=i THEN LET C$iA,1Si=CH 


ia NEXT : LET K=1: GO SUE i58 
gree IF CODE 5$:88 THEN GO To iz 
lid FOR X-2 TO i857 STEP 2: LET 
CH(X,18) -CHR$ K: LET C$íX41,18i- 
CHR$ K: LET K=K+1i: NEXT X 

126 FOR X=3 TO 167 STEP B: LET 
ea Re 255: NEXT X: GO TŪ 
ies FOR x=i TO 167: LET C$ix,i= 
|! ZCHR$ K: LET C$I(xX,19) =CHRS 8: L 
ET K=K4+1: NEXT X 

138 LET CH$ii63,li=CHR$ 123: IF 
FL THEN GO TO iaà8 

148 GO TO 188 

158 RESTORE 168: FOR X-26715 TU 
26334: READ A: POKE X.,A: NEXT >. 

RETURN 
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160 DATA 205,10,0,237,176,285,1 
$2,10,823,42,75,02,17,18,20,25.1 
Z:16.58,1,16,Q,24,832,42.75,921 


AZÉS,2Q,25,17,32,38,1,13,13,24.3 
If+42,725,92,17,12,Q,256,127,8,62.1 
/9,20,237,175,201,42,75,02,17,12 
,9,25,1,0,20,62,229,237,1651,32,8 
= 

178 DATA 237 ,161,32,248,237,161 
,£00,24,243,42,75,92,17,11,2ó0,25 
/,1,0,20,52,13,237,159,208,24,251 
,42,75,92,17,11,2 «1,8,28,25,62, 
229,237,1628,40,25 


26739: RANDOM 


198 LET OR=0: LET PR=0: LET LEN 
GTH=O: CLS : 60 Sus BP: PRINT AT 

5.0; "DAMAGED DISK WILL BE CHECK 
D FOR INTACT DATA NOU, PLEAS 
E FOLLOU THE PROMPTS"''"PRES 
S ENTER UHEN READY": PAUSE O: LE 
T NEXT-1 


2180 GO SUB 478: LET Z-zZ412: For 
XzNEXT TO 167: LET Fi=i: LEFetGY 
LzX: PRINT AT D,25;"CYL ";X: LET 
DS="CYL # “4+STRE x. LOAD zD$COD 
E Z: IF CODE A$ii)-229 AND CODE 
R$ (5120) =229 THEN GO SUB BP: LET 


OR THIS IS THE END oF DATA ON 
THIS DISK"''"PRESS ZERO i8! TO A 
ESTORE DISK OR EXIT PROGRAM" ronn 
DR ANY OTHER KEY TO CONTINUE ": 
GLÈ ü: IF INKEY£-"Qà" THEN 60 T 

4 

220 IF NOT FL THEN NEXT x 

E30 CLS : GO SUB BP: PRINT AT T 
,O; "CYLINDER ";X;" IS LOADED NOU 
ULL PRESS KEY TO VIEN DATA ": PA 
USE Q 

248 CLS : RANDOMIZE USR 26754: 
GO SUB BF: PRINT AT 26,0; INVERS 
E 1;"PRESS (P)! To UIEU IN DATA F 
GRMAT ONE (l! TO VIEW NEXT CYLIN 
DER “#0; "PRESS ZERO iQ) TO RES 
TORE DATA ": PAUSE D: IF INKEY $= 
"1" THEN GO TO 288 i 

250 IF INKEYg="P" oR INKEY g="p" 

THEN LET FL-6: CLS : PRINT #@;" 
PRESS ZERO i8) TO RESTORE DATA " 
; FOR S=1 TO 5128: ON ERR Go TO 
308: PRINT A£í2);: IF. INKEY$z"1" 

THEN GO TO 288 

268 IF INKEYS$="@" THEN GO TO 31 
e 


EZ8 IF NOT FL THEN NEXT 5 
280 LET FL=0: NEXT X: STOP 


: NEXT 5 
310 ON ERR RESET : LET Fi =0: CL 
5 : GO SUB BP: PRINT AT 3,40; “WHA 
T KIND OF DATA IS IT ?":*'^1, BA 
SIC"''"21! NUMERIC DATA "''"àj ST 
RING DATA "''"4) MACHINE CODE €- 
-.9) STATE OF MACHINE" “6 VARI 
RHBLES"''"7?1 PART OF PREVIOUS DAT 
a. 8) RESTORE PREU. DATA SEPE 
RATELY": LET P=K: INPUT K: IF K= 
8 THEN LET FL-1: LET K=p 
SiS IF K«? THEN LET LENGTH=O: L 
ET PROG=O: LET Ci=i: IF NOT FL T 
HEN LET DR=DA+1 
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318 IF FL THEN LET X-X-1: PRINT 
AT D,B5,"DYL "; xX: an SUB 478: L 
ET Z=Z+12: LET D£-z"CYL t "STRE 
X: LOAD ^/D$CODE Z 

320 IF K=5 THEN GO To 428 
purs IF P<? AND K=7 THEN LET PR- 


330 CLS : LET AsusR 26770: LET 
A=51208-A 

o4@ IF 830 THEN PRINT '':^ TOTAL 
go EE SAVED="; A+LENGTH: co TO 3 


S45 IF FL THEN GO TO 3868 

S580 IF HOT FL AND A¢=0 THEN LET 
CL=CL+1: PRINT AT D,g5, OYE. "y 
+1: LET LENGTH=LENGTHX+LEN H5-i: 
LET X=x+1: GO SUB 478: LET Z=ĒZ41 
2: LET D£-"CYi # "UTSTRS X: LOAD 
/DSCODE Z: GO TO 240 

S60 IF PR AND K-7 THEN LET kK-PR 
: LET PR=o 

378 IF K=zi THEN LET N=USR 265795 
: PRINT **"PRüOSRaH LENGTH="; N+LE 
NGTH41;" BYTES": LET PROS=N4+LENG 
TH+1: GO TO 4àg8 

3880 IF kK»1 THEN LET N=USR 26312 
: PRINT '“"“ DATA LENGTH="; N+i ENG 
TH+1;" BYTES": LET PROG=N+LENGTH 
+1: GO To 484 

388 NEXT N: STOP 

488 LET D$=CHAS (K-1): IF K=1 T 
HEN LET D$=D$+CHR£ (PROG-256<4INT 
(PROG /256134+CHRE {INT (PROG,256 
1] +CHR$ O+CHA$ EL+CHA$ (PROG-2565 
TINT (PROGZ256:1+CHR$ (INT (PROG 
/^BS61!4CSiCYD»D,18 TO 19) +CHR$ Ci: 
LET canst TO 28) =D$: LET NEX 


418 IF K=2 OR K-3 OR Kaa DR K=6 
THEN LET D$=D$+CHA$ (PROG-2S56:I 
NT (PROG,ZS6:)4+CHRS$ (INT (PROGeo 
S5))4CHR£ O+CHR$ I28+C$i(CYi,18 T 
D 18)4CHRS CL: LET C$I(DR,1ii TO 2 


L 
428 IF K=5 THEN LET DS=DS+CHR GE 
O4CHRS 134+CHAS$ O+CHRS G2+CHAS 2 


T: LET C$iDR,1i TO 28) =D$: LET C 


425 IF FL THEN 60 TO 510 

438 GO SUB 588: Go TO 2ga 

448 LET DR=DR+1: LET C$£ipR,i)-C 
HRS 128 

458 RANDOMIZE USR 257328. CAT 
450 STOP 

470 LET Z-PEEK ESBZ7+256:xPEEK 2 
3528: RETURN 

458 GO TO S 

498 ON ERR RESET : IF Cvi15ü0 THE 
N CLS : PRINT AT T,0;"DüO YOU LIS 
H TO HAVE DIRECTORY RESTORED 7 
[YAN] ": PAUSE O: IF INKEY B2tyon 
OR INKEY$="y" THEN an TO 442 

435 STOP 

S88 GO SUB 488: PRINT #O; "PRESS 
ANY KEY TO CONTINUE ": PAUSE n- 
RETURN 

S180 LET FL-0: CLS : PRINT AT T; 
D; “LOADING LAST DATA UIEUED"'. G 
O SUB 588: GO TO 29060 


S 


deep — 
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Thats all folks! Now if you have 
never entered the program, just do 
it. For those who have entered it 
previously, you may just update the 
program line by line. I dont know 
which would be easier. Now as how 
to to use the RECOVER program? 


Practice makes perfect! Copy a 
disk with data on it, then CAT the 
disk using; OPENS 2,"P", this will 
dump the catalog to the printer. 
Dont forget to CLOSE 2, after your 
done. This printout will help you 
when restoring the disk. Load 
RECOVER, and insert the copied disk 
into a drive, run the program 
following the prompts. 

After the first CYL has loaded, 
press «enter» as promted, and since 
you know whats on the disk, press 
"D" to recover! This will get you 
to a menu, which will ask you what 
type of data it is, just enter the 
number for the type data, even if 
the program is larger than 1 cyl. 

Now load the next cylinder, 


press "Ø" again, and if the next 
cylinder was part of the first 
section, enter "7" for "Part of 
previous data". Naturally you 


should perhaps have a look at the 
data as it is loaded, so that you 
will recognize data like it in the 
future. 

After you have stepped through 
all the data on the disk you will 
be asked if you wish to restore the 
directory, enter "Y" for yes, and 
the new directory should be on the 
disk now, the program will catalog 
the disk now, to make sure. 

Program names will be CYL # 1 
etc. just change the names using 
RESTORE/ "CYL # l" to "NEW NAME". 
After you'r done the disk should be 
restored to its previous state. 

As the program loads individual 
cylinders the program will display 
in the upper right corner of the 
screen "CYL #", where # is the 
number of the cylinder being 
loaded. This is it, nothing to it. 
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Now something else, sometime in 
the past I said; "I used all the 
memory up in the MENU LOADER!" You 
did not really believe me, did you? 
Well here is the latest version, it 
features PAGING, forward and back- 
wards, now don't you think this 
calles for a reprint? 


That's what Bud Dankert thought 
at least, he came over the other 
day and probably thought he did not 
see right when he looked at the 
screen. I think this should do it 
for a while though, geeez there is 
only so much a guy can do with 1.4K 
"Write it all in machine code"!!?? 
come on guys, remember the days of 
the ZX81 or the 1000? How much time 
we spend then to load a program! 


How fast one forgets! "The good 
old days", wonder if there is still 
someone out there using the darn 
thing? By the way, my thanks to all 
the readers of SMUG BYTES for all 
the nice letters you had send me. 
It really encourages a guy to keep 
on writing. This Newsletter must 
really get around, I get mail from 
all corners of the US. Keep it up, 
I like it. 


While your at it though, give me 
some hints of what kind of articles 
or software you would like to see 
here, one of these days I will mun 
out of ideas, most unlikely the XYL 
would probably say. Oh, «Xd on 
stands for "ex young lady", that's 
what we call wifes in Amateur Radio 
Circles ("Ham Radio" for all of you 
who don't know what Amateur Radio 
means), just kidding. 


Well this should be it, hope all 
of you don't mind a few reprints? 


For the next issue of this News- 
letter I hope to have VU-Calc 
ready, almost forgot about that 


one. Hope it is still worth the 
effort, I have the feeling every- 
body is in to OL'ing nowadays. 


Have fun your #3 (Rudy). 
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15»REM IMPEXi.9 


28 CLEAR : LET A=NOT PI: LET E gwan z 
=A: LET C=A: LET D=A: DIM A$IVAL & — 
"179", VAL “ZQ"1: DIM B£iURL "32 


.J: DIM CS$I(VAL “688"): LET Osa: 

INK URL "O8": PAPER SGN PI: BORDE 
R SEN PI: CLS : LET E-PEEK VAL " 
23535"4URHL "B2SB5"sPEEK URL “23636 
“+VAL "S5": LET F=USR E: LET D$£z" 


"J'CODE A$SIVAL "178".UBL "1'3 FLE 
TRKS, ";CODE A$IVAL “179",UAL "2 
“Ji” SIDES=";CODE A$(VAL "178",U 
AL “ZUI UAL "5";"K FREE ";CODE 
AS(VAL "178",UnL "s")sURL ^5";"k 


————————— —— —— —— ———————————————— 


E,K-2E64INT IK,y256 
INT IK,7256): RETUR 


48 IF I=2 THEN BEEF .08,35: LE 
T J=SGEN PI 

58 PAUSE VAL "2": LET G-INT PI 
> LET H=0: IF F-I»:=VAL "18" THEN 
„bET J=J+VAL "i8": GO TO VAL "72a 


6@ LET J=F+SGN PI 

70 LET K=PEEK 327684256sPEEK 3 
2769: FOR ^I TO J 

88 RANDOMIZE USR (E454): PRINT 
AT G,B;A$iA-1, TO 18);TAB 14:53 
[E+li; TAB 21;: IF NOT B AND D^1E 
4 THEN PRINT @;: cO TO 188 

Sa PRINT D; 

188 PRINT TAB Z6;",";C: LET G=6 
+1: IF H THEN RETURN 
110 NEXT : PRINT to: aT 


A 


l 


oli ji AT ili 
ey I 


Mi 
40 


| 


pi 


1480 LET G=3: LET H-1: FOR -I TO 
J: PRINT AT 6,8; PAPER 5; OVER 
1;B3: PAUSE 8: LET G-CODE INKEY 3 

: IF Q=13 THEN GO TO VAL "1289" 

145 IF @=40 THEN LET K=K4UAL "3 
80": GO TO VAL “Bea 

150 PRINT AT &,8; INVERSE 8;B;s: 

GO SUB sa 

155 IF @=5@ AND UAL "gà" THEN 

LET KzK-UHL "388": LET J=J-UAL 
“ZO'-t(d-Il: GO TO VAL “sea 

150 NEXT 

178 PRINT AT Z,8;C$: IF A:F THE 

USR E: LET I=VAL "2" 

: =I: 60 TO VAL "4à" 

188 RETURN 

1880 LET L$=A$iA-SGN PI, TO VAL 
“18"3: GO SUB UAL "1i189"4CODE Asi 
A-SEN FI -VAL “il”i+5GH PI 

1951 LOAD vyi$: STOP 

182 LOAD -L# DATA ni): STOP 

182 LOAD /L$ DATA Bsii: STOP 

194 LOAD si $CODE : STOP 

185 LOAD svi $AES 

186 LOAD vi$UAL : STOP 

28! LET A=J+5GH PI: GO SUB UAL 
"SO": GO SUB VAL "178". GO To Un 
L "120" "Then when he empties the in-basket, he's rewarded with a paycheck. ." 
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This time I will give a little 
dissertaticn on the second menu in 
Mecript. To get to the second menu 
you must press the Symbol Shift key 


and the Break key (at the upper 
and lower case pa make a 


difference. When ail the pages are 
scanned the cursor will be returned 
at the first occurrence. To find 
the next occurrence hold the Svmbol 
Shift, Caps Shift and F keys. The 


FIND will go ta the next 
occurrence. Now for the CHANGE 
verb. This wii change ali 


1 
occurrences of the parameter used 
in the FIND done just previously to 


the new parameter used in the 
CHANGE. 


Eeware this is 

may change more 
you need to use 
the CHANGE then 
it. For example 
ali occurrences 
First go to the 


fxX Yy then press the 


Mecript will ret 


occurrence of HX 
the sub menu arid 
press the ENTER hey. 


occurrences of 


changed ta AA YY 


to remember is 
Mscript works 
version fram Jac 
are not sure af 
Occurrence enter 


like XXX. Then when you are ai 
done just change XXX to the correc 


spelling. 


GK ENTERPRISES 


Your Computer Supply Source 


No need to wait for a sale. 


Our prices are low everyday 


Wide selection of printer ribbons 


AXION C. ITOH 


Very powerful and 
than you want. Tf 
the space within 
go ahead ant use 
you wish to change 
OP XX Vy eek YY: 
sub menu and enter 


urn to t 
Yy. Now return 
enter CRK YY 


sx Yy are 
. Try it. Une thing 
this is the y 
with tne AE 


k Domany. if you 
a spelling at each 


anything umusua 


PÈ kat pa 


EPSON OKIDATA 


AND MANY MORE. 


PANASONIC STAR 
ensecaaneoacencnn 
E eSHUG SPECIALe 
eseoes«cseacseaasesocn 
2700 sheets 9 1/2 x 11 20# Microperf 823.50 


*ee990900ececeocecce 


« '/$46-0111 d 


6634 V. National “Avenue 


SMC — EXed-am es 


Vest Allis WI 53227 
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The new 


2nd Computer Store 
BYTES For Not-So-New 
computers 


£ SAVE THE HASSLE. have 2nd BYTES sell your 
" unused " computer, peripherals and software 
- We are in the Business to sell your computer. 


* SAVE MONEY, buy your computer, peripheral and 
software at 2nd BYTES. 


$ SAVE TIME, have our professional consultants 
assit you in finding the computer and the 
i programs for your needs. 
- We are in the business to help you select an 
inexpensive system. 


2 WARRANTY, on almost all equipment we sell. 
- We service what we sell 


774—1155 
9721 W. Greenfield Ave. West Allis, WI 5Z214 
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